library(plotROC)

# ROC ggplot2
ggplot(aSAH, aes(d = outcome, m = s100b)) +
  geom_roc()

# 关闭曲线上显示阈值cutoff的数值
ggplot(aSAH, aes(d = outcome, m = s100b)) +
  geom_roc(n.cuts = 0)

ggplot(aSAH, aes(d = outcome, m = s100b)) +
  geom_roc(n.cuts = 5,
           labelsize = 5,
           labelround = 2)

ggplot(aSAH, aes(d = outcome, m = s100b)) +
  geom_roc() +
  style_roc()
